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I.  INTRODUCTION 


A  system  to  monitor  heat  flux  and  temperature  at  individual  body  sites 
using  commercial  heat  flow  transducers  and  thermistors  has  been  developed  at 
this  facility.  Details  of  the  amplifier  and  multiplexer  hardware  are  reported 
elsewhere  (1) .  Since  as  many  as  32  individual  transducer  signals  (most  of 
them  multiplexed  on  two  lines)  can  be  outputed  by  this  system  each  minute,  an 
accurate  and  reliable  data  de-multiplexing  and  recording  technique  is  a 
necessity.  These  functions  have  been  automated  with  a  Hewlett-Packard  9825 
desktop  computer  and  associated  peripherals.  The  program  that  controls  the 
digital  data  acquisition,  "FLUXIS,"  is  described  in  the  next  section.  The 
raw  data  recorded  consist  of  the  voltage  outputs  of  the  amplifier  circuits 
for  each  transducer.  These  signals  are  of  little  value  until  they  have  been 
scaled  into  physical  units.  This  function  is  provided  by  the  program  "HEAT15 . " 
Analysis  of  the  data  is  aided  by  two  additional  software  routines,  "PLT15" 
and  "AVG15."  The  former  generates  a  plot  of  the  output  of  each  sensor  as  a 
function  of  time,  while  the  latter  computes  the  mean  value  of  each  transducer 
signal  over  a  period  of  time  chosen  by  the  operator.  Several  less  frequently 
used  programs  which  complete  the  software  package  for  this  system  are  also 
described. 
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II.  PROGRAM  "FLUX15" 


A.  Introduction 

Program  "FLUX15"  controls  the  acquisition  and  storage  of  data  from 
the  system  designed  to  monitor  cutaneous  heat  flux  and  temperature  at 
individual  body  sites  by  means  of  an  array  of  transducers.  It  accepts  two 
lines  of  multiplexed  information  (heat  flux  and  temperature)  and  12  dedicated 
lines.  Uith  the  current  hardware,  the  program  can  accept  up  to  10  multiplexed 
heat  flow  transducers,  12  multiplexed  temperature  probes,  and  up  to  five 
combination  heat  flux/temperature  non-mult iplexed  transducers.  In  addition, 
there  are  dedicated  Inputs  from  the  internal  clock  of  the  electronics 
system  and  from  the  programmable  voltage  source  used  for  calibration. 

The  program  is  written  for  the  Hewlett-Packard  9825  computer  which 
uses  a  software  controlled  scanner  and  digital  voltmeter  combination  to  select 
the  data  lines.  Appendix  lb  identifies  which  signal  line  is  connected  to  each 
scanner  input  for  proper  operation.  To  stay  in  synchronixation  with  the 
multiplexed  signals,  the  program  must  be  able  to  identify  changes  in  levels  of 
the  system  clock  as  well  as  the  occurrence  of  a  synchronization  voltage  level 
at  the  sixteenth  multiplexed  position.  These  voltages  are  defined  in  lines 
42-43  of  the  program. 

"FLUX15"  contains  a  routine  that  stores  information  in  a  calibration 
file  to  allow  the  analysis  program  to  calculate  the  gain  and  offset  of  each 
circuit.  Thus  it  is  not  necessary  for  the  operator  to  make  zero  and  full-scale 
adjustments  to  the  circuits  themselves. 

Once  the  data  collection  section  of  the  program  is  running,  the 
system  is  completely  automatic  and  requires  no  further  operator  assistance 
until  the  experiment  if  finished.  During  a  nominal  one-minute  cycle,  each 
multiplexed  sensor  la  read  many  times  during  a  three-second  period;  the 
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Individual  readings  are  averaged  to  obtain  a  single  value.  Each  of  the 
auxiliary  sensors  is  similary  measured  over  a  two-second  interval.  At  the  end 
of  each  cycle  the  mean  output  values  of  all  the  sensors  are  stored  in  the  data 
file  on  the  flexible  disk.  When  the  user  is  ready  to  terminate  the  data 
acquisition  routine,  he  uses  the  live  keyboard  to  enter  the  value  1  into  the 
variable  V;  this  causes  the  program  to  stop  at  the  end  of  the  current  cycle. 

Since  the  calibration  procedure  is  critical  to  the  validity  of  the 
experimental  data,  it  is  Important  that  this  procedure  be  performed  carefully 
and  accurately.  The  calibration  constants  of  the  heat  flux  transducers  are 
determined  using  an  instrument  (Dynateck  R/D  Co.,  model  Rapid-k)  that  can 
maintain  a  known,  fixed  value  of  heat  flux  through  the  disks.  This  process  is 
time-consuming  and  cannot  be  done  before  each  experiment.  Fortunately, 
experience  at  NMRI  and  elsewhere  has  shown  that  the  values  are  stable  (2) . 

For  the  pre-experiment  calibration  a  variable  voltage  source  is  connected  to 
the  inputs  of  the  system  which  normally  would  receive  the  output  signals  of 
the  heat  flux  sensors.  The  voltage  source  is  set  to  0  mV  for  the  low  level 
calibration  and  to  ^5  mV  for  the  full-scale  input.  These  simulated  signals 
allow  the  electronic  system  to  be  checked  and  the  gain  and  offset  of  the 
individual  circuits  to  be  determined. 

The  temperature  probes  are  calibrated  as  integral  parts  of  the  system 
before  each  experiment.  They  are  immersed  in  a  water  and  ice  slush  and  left 
there  for  'V'lO  minutes  until  the  temperature  of  the  mixture  has  equilibrated. 
The  temperature,  as  measured  by  a  digital  thermometer,  is  hand  entered  on  the 
computer  and  the  output  of  each  temperature  circuit  is  then  measured 
automatically.  Similary,  the  full-scale  temperature  signals  are  determined  by 
putting  the  probes  in  a  '>40°C  stirred  water  bath. 
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The  values  obtained  during  calibration  are  printed  for  inspection  by 
the  user.  The  heat  flux  circuits  have  low  offset  and  a  nominal  gain  of  500; 
thus,  the  low  level  calibration  output  should  be  ^0.005  V  and  the  high-level 
value  should  equal  ^2.5  V.  For  temperature,  the  nominal  scaling  is  100  mV/°C. 
The  low  output  should  read  £0.1  V  and  the  high  output  ^4.0  V. 

A  program  listing,  variable  allocations,  flow  charts,  and  required 
equipment  are  given  in  Appendix  1. 


User  Instructions 


1.  Insert:  program  disk  into  drive 
Type :  drive  0 , 8 

Press :  EXECUTE 

2.  Type:  get  "FLUX15" 

Press :  EXECUTE 

When  end  of  line  symbol  (H  is  displayed 
Press :  RUN 

3.  When  "PRINTER  SELECT  CODE  -  ?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

4.  When  "REMOVE  PROGRAM  FLEXIBLE  DISK!"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

5.  When  "INSERT  DATA  FLEXIBLE  DISK!"  is  displayed; 

a.  Insert  disk  on  which  data  is  to  be  recorded 

b.  Press:  CONTINUE 

6.  When  "Enter  #  of  HFS  multiplexed"  is  displayed; 

a.  Type:  L,  where  L  £  15  is  the  number  of  heat  flow  transducers 
(normally  L  “  10) 

b.  Press:  CONTINUE 

7.  When  "Enter  #  of  TMP  multiplexed"  is  displayed; 

a.  Type:  H,  where  L  <  H  <  15  is  the  number  of  temperature  sensors 
(normally  H  -  12  since  rectal  and  ambient  temperatures  are  read 

in  addition  to  the  10  temperatures  associated  with  each  heat  flow  disk) 

b.  Press:  CONTINUE 

8.  When  "Enter  #  of  Auxiliary  sensors"  is  displayed; 

a.  Type:  A,  where  1  <  A  <  5  (note  that  A  +  H  must  be  £17) 

b.  Press:  CONTINUE 

9.  When  "Do  you  want  to  calibrate?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES  (special  function  key  ffi) 

2)  Go  go  step  10 

b.  If  no, 

1)  Press:  No  (special  function  key  f,) 

2)  Go  to  step  30 

10.  When  "Enter  6  character  cal.  file  name"  is  displayed; 

a.  Type:  name  (must  contain  maximum  of  six  characters;  no  spaces  are 
allowed  withir  name) 

b.  Press:  CONT’  TE 


11.  When  "Enter  heading  for  cal.  file"  is  displayed; 

a.  Type:  heading,  which  may  contain  a  maximum  of  80  characters  and 
spaces 

b.  Press:  CONTINUE 

12.  When  "Calibrate  heat  flux  sensors"  is  displayed; 

a.  Check  that  all  heat  flux  inputs  (multiplexed  and  auxiliary)  are 
connected  to  output  of  calibration  voltage  source. 

b.  Press:  CONTINUE 

13.  When  "Cal  HFS,  LOW  voltage  (0  mv)"  is  displayed; 

a.  Check  that  voltage  source  is  set  to  0  output 

b.  Press:  CONTINUE 

14.  When  "Press  CONT  to  read  input  volts"  is  displayed; 

a.  Check  voltage  being  read  on  computer  system  digital  voltmeter  (DVM) . 
If  reading  is  £0.050  mV  proceed;  if  reading  is  too  high,  remedy 
problem  before  continuing. 

b.  Press:  CONTINUE 

1)  "READING  CALIBRATION  VOLTAGE"  is  displayed 

2)  Computer  reads  input  voltage 

3)  Value  is  printed 

15.  When  "Press  CONTINUE  to  take  reading"  is  displayed; 

a.  Set  HFS  controller  to  "SELECT"  channel  15 

b.  Press:  CONTINUE 

c.  "Waiting  for  sync"  is  displayed 

d.  Set  HFS  controller  to  "SCAN";  wait  ^>4  sec 

e.  "Calibration  data  is  being  read"  is  displayed  for  min 

f.  Outputs  in  volts  of  HFS  circuits  are  printed 

16.  When  "Repeat  Calibration?"  is  displayed; 

a.  If  calibration  results  are  satisfactory  (output  £0.005  V), 

1)  Press:  NO 

2)  Go  to  step  17 

b.  If  results  must  be  repeated, 

1)  Press:  YES 

2)  Go  to  step  13 

17.  When  "Cal  HFS,  HIGH  voltage  (5mV)"  is  displayed; 

a.  Set  voltage  source  output  to  ^  +  5  mV 

b.  Press:  CONTINUE 

18.  "When  Press  CONT  to  read  input  volts"  is  displayed; 

a.  Check  voltage  being  read  on  DVM.  If  it  is  ^5  mV,  proceed;  if  not, 
remedy  problem  before  continuing. 

b.  Press:  CONTINUE 

1)  "READING  CALIBRATION  VOLTAGE"  is  displayed; 

2)  Computer  reads  voltage 

3)  Value  is  printed 

19.  When  "Press  CONTINUE  to  take  read!-  g"  is  displayed; 

a.  Set  HFS  controller  to  "SELECT*  channel  15 

b.  Press:  CONTINUE 
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c.  "Waiting  for  sync"  is  displayed 

d.  Set  HFS  controller  to  "SCAN";  wait  ^4  sec 

e.  "Calibration  data  is  being  read"  is  displayed  for  'v-l  min 

f.  Outputs  in  volts  of  HFS  circuits  are  printed 

20.  When  "Repeat  Calibration?"  is  displayed; 

a.  If  calibration  results  are  satisfactory  (output  ^2.5  V), 

1)  Press:  NO 

2)  Go  to  step  21 

b.  If  results  must  be  repeated, 

1)  Press:  YES 

2)  Go  to  step  17 

21.  When  "CALIBRATE  TEMPERATURE"  is  displayed; 

a.  Check  that  all  temperature  sensors  are  totally  immersed  in  ice/water 
slush  and  have  had  sufficient  time  (at  least  10  min)  to  equilibrate 
with  bath  temperatures. 

b.  Check  that  all  sensors  are  properly  connected  to  the  electronics  of 
the  system. 

c.  Press:  CONTINUE 

22.  When  "Low  T  in  degrees  C  ■  ?"  is  displayed; 

a.  Read  temperature  of  ice  bath  on  digital  thermometer  (Note:  Check 
zero  of  thermometer) 

b.  Type:  number  for  temperature  in  C 

c.  Press:  CONTINUE 

d.  Value  is  printed 

23.  When  "Press  CONTINUE  to  take  reading"  is  displayed; 

a.  Set  HFS  controller  to  "SELECT"  channel  15 

b.  Press:  CONTINUE 

c.  "Waiting  for  sync"  is  displayed 

d.  Set  HFS  controller  to  "SCAN";  wait  ^4  sec 

e.  "Calibration  data  is  being  read"  is  displayed 

f .  Outputs  in  volts  of  temperature  circuits  are  printed  (should  be  ^0.1  V) 

24.  When  "Repeat  Calibration?"  is  displayed; 

a.  If  yes, 

1)  Press :  YES 

2)  Go  to  step  22 

b.  If  no, 

1)  Press:  NO 

2)  Go  to  step  25 

25.  When  "High  T  in  degrees  C  ■  ?"  is  displayed;  o 

a.  Remove  sensors  from  ice  bath  and  place  in  nominal  40  C  bath 

b.  Wait  several  minutes  for  equilibration 

c.  Read  bath  temperature  on  digital  thermometer 

d.  Type:  number  for  temperature  in  C 

e.  Press:  CONTINUE 

f.  Value  is  printed 

26.  When  "Press  CONTINUE  to  take  reading"  is  displayed; 
a.  Set  HFS  controller  to  "SELECT"  channel  15 


b.  Press:  CONTINUE 

c.  "Waiting  for  sync"  is  displayed 

d.  Set  HFS  controller  to  "SCAN";  wait  ^  sec 

e.  "Calibration  data  is  being  read"  is  displayed 

f.  Outputs  in  volts  of  temperature  circuits  are  printed  (values  should 
be^.O  V) 

27.  When  "Repeat  Calibration?"  is  displayed; 


a.  If 

no. 

1) 

Press : 

:  NO 

2) 

Go 

to 

step 

28 

b.  If 

yes, 

1) 

Press: 

YES 

2) 

Go 

to 

step 

25 

28.  [Calibration  data  are  recorded  on  flexible  disk.] 

29.  When  "Calibration  Completed"  is  displayed; 

Press:  CONTINUE 

30.  When  "Enter  6  character  data  file  name"  is  displayed; 

a.  Type:  name  (must  contain  a  maximum  of  six  characters;  no  spaces  are 
allowed  within  name) 

b.  Press:  CONTINUE 

31.  When  "Number  of  data  records  *  ?  (app.  1.2/min)"  is  displayed; 

a.  Type:  n,  where  n  >  1.2T  and  T  is  the  maximum  time  in  minutes  for 
which  data  collection  is  to  continue 

b.  Press:  CONTINUE 

32.  If  program  stops  and  computer  displays  "error  D8,"  flexible  disk  has 
insufficient  room  to  store  data  file 

a.  Remove  disk 

b.  Insert  new  disk 

c.  Type:  cont  54 

d.  Press:  EXECUTE 

e.  Go  to  step  30 

33.  When  "Enter  first  line  of  heading"  is  displayed; 

a.  Type:  up  to  80-character  line 

b.  Press:  CONTINUE 

34.  When  "Enter  second  line  of  heading"  is  displayed; 

a.  Type:  up  to  80-character  line  or  leave  blank 

b.  Press:  CONTINUE 

35.  When  "Enter  third  line  of  heading"  is  displayed; 

a.  Type:  up  to  80-character  line  or  leave  blank 

b.  Press:  CONTINUE 

36.  When  "Press  Continue  to  Start  Data"  is  displayed; 

a.  Set  HFS  controller  to  "SELECT"  channel  15 

b.  Press:  CONTINUE  when  you  are  nearly  ready  to  start  data  collection 

c.  "Waiting  for  sync  signal"  is  displayed 
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d.  When  ready  to  start  data  acquisition,  set  HFS  controller  to  "SCAN"; 
wait  ^>4  sec 

e.  "In  sync"  is  displayed  (Note:  Internal  elapsed  time  clock  of 
computer  starts  at  this  time.) 

37.  [After  M.  min,  the  output  signals  of  each  transducer  that  were  stored  in 
memory  are  recorded  on  the  disk.  The  current  rectal  temperature  and 
elapsed  time  are  displayed.  This  cycle  is  repeated  once  per  minute 
during  the  experiment  with  no  further  operator  input . ] 

38.  When  the  experiment  is  to  be  terminated; 

a.  Type:  1  -*■  V 

b .  Press :  EXECUTE 

c.  The  program  will  complete  the  current  data  collection  cycle  and  then 
display  "Data  Collection  Ended" 

39.  "Press  continue  to  duplicate  data"  will  be  automatically  displayed  10  sec 
later. 

a.  If  you  wish  to  duplicate  data  using  the  HP  9885  single  flexible  disk 
drive  and  tape  cassette,  go  to  step  40. 

b.  If  you  wish  to  duplicate  data  using  the  HP  9895  double  flexible  disk 
drive 

1)  Remove  disk 

2)  See  instructions  for  duplication  following  this  program. 

40.  Press:  CONTINUE 

41.  When  "INSERT  TAPE  FOR  DATA  DUMP"  is  displayed; 

a.  Put  tab  on  cassette  in  "RECORD"  position 

b.  Insert  tape  in  computer 

c.  Press:  CONTINUE 

d.  "DATA  IS  BEING  RECORDED  ON  TAPE"  is  displayed 

42.  When  "REMOVE  ORIGINAL  DISK"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

43.  When  "INSERT  DISK  FOR  DUPLICATE  DATA"  is  displayed; 

a.  Insert  disk 

b.  Press:  CONTINUE 

c.  "DATA  BEING  RECORDED  ON  DISK"  is  displayed 

44.  When  "DATA  DUPLICATION  COMPLETED"  is  displayed; 

a.  Remove  tape 

b.  Remove  disk 

c.  Program  is  completed 
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C.  Instructions  for  Duplicating  Data  on  Dual  Disk  Drive 


1.  Insert:  double-sided  disk  onto  which  data  is  to  be  copied  into  drive  0. 

2.  Insert:  single-sided  disk  which  contains  original  data  into  drive  1. 

3.  Type:  copy  "NAME",  1,  707,  "NAME",  0,  707 

(where  NAME  is  the  calibration  file  to  be  copied) 

Press:  EXECUTE 

4.  Wait  for  end  of  line  symbol  (H)  to  be  displayed 

5.  Type:  copy  "NAME",  1,  707,  "NAME",  0,  707  (where  NAME  is  the  data  file  to 

be  copied) 

Press:  EXECUTE 

6.  When  end  of  line  symbol  (H  appears  the  duplication  is  completed. 
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III.  Program  "HEAT15" 

A.  Introduction 

The  data  stored  by  program  "FLUX15"  consist  of  the  actual  voltage 
signals  of  the  sensors.  For  this  information  to  be  useful  it  must  be  properly 
scaled  into  physical  units.  Program  "HEAT15"  performs  this  function.  It  uses 
values  stored  in  a  calibration  file,  a  data  file,  and  in  file  "ASAY15"  to 
produce  a  new  file  containing  the  scaled  data. 

The  program  first  calculates  a  gain  for  each  sensor  circuit  as 

follows : 


where : 


1000(1^  -  -  VQ) 

^T1  ”  To^ti  ~  *0^ 


gain  of  heat  flux  circuit  (dimensionless) 
heat  flux  high  calibration  voltage  output  (V) 
heat  flux  low  calibration  voltage  output  (V) 
heat  flux  high  calibration  voltage  input  (mV) 
heat  flux  low  calibration  voltage  input  (mV) 
gain  of  temperature  circuit  (volts/°C) 
temperature  high  calibration  voltage  output  (V) 
temperature  low  calibration  voltage  output  (V) 
actual  high  temperature  calibration  value  (°C) 
actual  low  temperature  calibration  value  (°C) . 


The  offset  (output  signal  with  a  zero  input)  is  then  determined  for  each 


circuit  by: 

DH  "  H0  '  <V(V1000) 

DT  -  T0  -  (Gt) (t0) 
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where : 


Dg  *  offset  of  heat  flux  circuit  (V) 

Dt  -  offset  of  temperature  circuit  (V) 

The  raw  data  are  then  scaled  using  the  equations: 

zH  -  1000  [(^  -  dh)/gh](fh) 

ZT  -  OLj  -  Dt)/Gt 

where : 

Zy  ■  scaled  heat  flux  (W/H2) 

Xg  *  unsealed  heat  flux  transducer  output  (V) 

Fg  *  calibration  constant  for  heat  flux  transducer  (W/M2 -mV) 

(from  "ARAY15") 

■  scaled  temperature  (°C) 

XJ  >  unsealed  temperature  transducer  output  (V) 

At  this  point,  a  regional  heat  flux  and  temperature  have  been 
computed  for  each  sensor.  To  obtain  a  rate  of  heat  loss,  both  the  total  body 
surface  area  and  the  fraction  represented  by  each  transducer  must  be  known. 
The  area  weighting  factors  selected  by  the  user  are  contained  in  "ARAY15"  (3, 
4) .  The  total  area  is  calculated  with  the  equation  of  Dubois  and  Dubois  (5) : 
S  ■  (A  (0,725))(B  0,425)) (71.84) (10“4) 

where: 

2 

S  »  Surface  area  in  M 
A  *  height  of  subject  in  cm 
B  **  weight  of  subject  in  Kg 

The  scaled  data  are  recorded  on  the  flexible  disk  in  serial  form 
according  to  the  format: 

C$,  D$,  E$,  B$,  F$ ,  N[*] ,  r8, 

U,  E,  F(*] ,  M[*],  P[*J 
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B.  User  Instructions 

1.  Insert:  program  disk  into  drive  0 
Type:  drive  0,  707 

Press:  EXECUTE 

2.  Type:  get  "HEAT15" 

Press :  EXECUTE 

When  end  of  line  mark  (H  is  displayed 
Press :  RUN 

3.  When  "Printer  Select  Code?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

4.  When  "INSERT  DATA  DISK  in  drive  0"  is  displayed; 

a.  Remove  program  disk 

b.  Insert  double-sided  disk  containing  data  files  produced  by  "FLUX15" 
into  drive  0 

c.  Press:  CONTINUE 

5.  When  "INSERT  NEW  DATA  DISK  in  drive  1"  is  displayed; 

a.  Insert  disk  in  drive  1  on  which  new  data  file  containing  scaled 
values  is  to  be  recorded.  (Note:  This  disk  must  already  have 
recorded  on  it  the  proper  "ARAY15"  file  created  by  program  "SNSR15") 

b.  Press:  CONTINUE 

6.  When  "Name  of  Calibration  file?"  is  displayed; 

a.  Type:  name  of  original  calibration  file 

b .  Press :  CONTINUE 

7.  When  "Name  of  Data  file  wanted?"  is  displayed; 

a.  Type:  name  of  original  data  file 

b .  Press :  CONTINUE 

8.  When  "Name  for  new  analyzed  data  file"  is  displayed; 

a.  Type:  name  of  data  file  in  which  new  scaled  data  is  to  be  stored 

b .  Press :  CONTINUE 

9.  When  "#  records  in  original  data  file?"  is  displayed; 

a.  Type:  number  (Note:  This  number  can  be  found  by  executing  the 
catalogue  command  for  drive  0) 

b .  Press :  CONTINUE 

10.  When  "Do  you  want  printout?"  is  displayed; 

a.  If  no, 

1)  Press:  NO 

2)  Go  to  step  18 

b.  If  yes, 

1)  Press:  YES 

2)  Sensor  information  stored  in  "ARAY15"  is  printed 
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c.  When  "Do  you  want  to  change  ARAY15?"  is  displayed; 

1)  If  no, 

a)  Press:  NO 

b)  Go  to  step  18 

2)  If  yes, 

a)  Press:  YES 

b)  Go  to  step  11 


11.  When  "Number  of  MPX  HFS  -  ?"  is  displayed; 

a.  Type:  number  of  multiplexed  heat  flux  sensors 

b.  Press:  CONTINUE  (Note:  In  this  and  the  following  steps  12-15, 

if  the  information  requested  in  a  particular  line  need  not  be  changed 
from  that  already  stored  in  "ARAY15,"  simply  press  CONTINUE.  The 
originally  entered  number  will  remain  unchanged.) 

12.  When  "Number  of  T  sensors  ■  ?"  is  displayed; 

a.  Type:  number  of  multiplexed  temperature  sensors 

b.  Press:  CONTINUE 

13.  When  "Number  of  AUX  sensors  *  ?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

14.  When  "Sensor  #  <I>"  is  displayed  (where  1  i  I  i  10); 

a.  Press:  CONTINUE 

b.  When  "Serial  #  *  ?"  is  displayed; 

1)  To  enter  a  new  number  for  multiplexed  #  I, 

a)  Type:  number 

b)  Press:  CONTINUE 

2)  To  leave  number  unchanged 
Press:  CONTINUE 

c.  When  "Cal  const  ■  ?"  is  displayed;  2 

1)  To  enter  a  new  heat  flux  calibration  constant  (W/M  -mV)  for 
sensor  #  I, 

a)  Type:  number 

b)  Press:  CONTINUE 

2)  To  leave  unchanged. 

Press:  CONTINUE 

d.  When  "Weighting  factor  -  ?"  is  displayed; 

1)  To  enter  a  new  fractional  surface  area  factor  (use  decimal  form) 
for  sensor  #  I, 

a)  Type:  number 

b)  Press:  CONTINUE 

2)  To  leave  unchanged 
Press:  CONTINUE 

e.  Does  I  ■  10? 

1)  If  yes,  go  to  step  15 

2)  If  no,  I  is  incremented  by  1;  go  to  step  14 

15.  When  "AUX  #  <I>"  is  displayed  (where  1  £  I  £  5); 

a.  Press:  CONTINUE 

b.  When  "Serial  #  «?"  is  displayed; 
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1)  To  enter  a  new  number  for  auxiliary  sensor  #  I, 

a)  Type :  number 

b)  Press:  CONTINUE 

2)  To  leave  unchanged 
Press:  CONTINUE 

c.  When  "Cal  const  “  ?"  Is  displayed;  . 

1)  To  enter  new  heat  flux  calibration  constant  (W/n  -mV)  for 
auxiliary  sensor  #  I, 

a)  Type :  number 

b)  Press:  CONTINUE 

2)  To  leave  unchanged 
Press:  CONTINUE 

d.  When  "Weighting  factor  *  ?"  is  displayed; 

1)  To  enter  new  number  for  auxiliary  sensor  #  I, 

a)  Type:  number  (decimal) 

b)  Press:  CONTINUE 

2)  To  leave  unchanged 
Press :  CONTINUE 

e.  Does  I  '  5? 

1)  If  yes,  go  to  step  16 

2)  If  no,  I  is  incremented  by  1;  go  to  step  15 

16.  [New  values  are  printed  and  then  stored  on  disk  in  drive  1  to  form  new 
"ARAY15"  file.] 

17.  When  "Modify  ARAY15  again?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES 

2)  Go  to  step  11 

b .  If  no , 

1)  Press :  NO 

2)  Go  to  step  18 

18.  When  "Height  of  subject  (inches)  "  ?”  is  displayed; 

a.  Type:  number  in  inches 

b.  Press:  CONTINUE 

19.  When  "Weight  of  subject  (pounds)  «  ?"  is  displayed; 

a.  Type:  number  in  pounds 

b.  Press:  CONTINUE 

20.  If  you  answered  "NO"  to  step  10,  go  to  step  22;  otherwise  continue  with 
step  20; 

a.  Parameters  used  to  compute  properly  scaled  values  are  printed 

b.  When  "Make  necessary  changes,  then  continue"  is  displayed; 

1)  If  no  changes  are  to  be  made  for  the  parameters  just  printed 

a)  Press:  CONTINUE 

b)  Go  to  step  21 

2)  If  some  parameters  are  to  be  changed 

a)  Use  the  live  keyboard  to  assign  new  values  (Note:  This  is 
done  by  identifying  the  variables  to  be  changed  with  the 
variable  assignment  listings  and  then  assigning  the  number 
wanted  to  each.  For  example,  if  the  operator  wants  to  change 
the  gain  of  multiplexed  temperature  circuit  #  11  to  0.100,  he 


finds  the  appropriate  variable  to  be  S[2,  11].  He  then 
proceeds  with: 

1)  Type:  0.1  -*•  S[2,  11] 

2)  Press:  EXECUTE 

The  process  is  repeated  until  all  variables  selected  by  the 
user  have  been  modified.) 
b)  When  finished 
Press:  CONTINUE 

21.  When  "Did  you  make  any  changes?"  is  displayed; 

a.  If  no, 

1)  Press:  NO 

2)  Go  to  step  22 

b.  If  yes, 

1)  Press :  YES 

2)  New  parameters  are  printed 

3)  Go  to  step  20. b. 

22.  When  "Enter  heading  (3  lines  available)"  is  displayed; 

a.  Type:  up  to  80  character  heading  line 

b.  Press:  CONTINUE 

c.  Go  to  step  22  until  three  lines  have  been  entered 

23.  ("DATA  ANALYSIS  RUNNING"  is  displayed.]  (Process  may  take  several  minutes 
depending  on  size  of  data  file.) 

24.  When  "Print  total  heat  loss?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES 

2)  Total  regional  and  whole  body  heat  losses  from  beginning  to  end  of 
experiment  are  printed. 

3)  Go  to  step  25 

b.  If  no, 

1)  Press :  NO 

2)  Go  to  step  25 

25.  When  "ANALYSIS  FINISHED;  another  run?"  is  displayed; 

a.  If  another  file  is  to  be  analyzed, 

1)  Press:  YES 

2)  Go  to  step  4 

b .  If  no , 

1)  Press:  NO 

2)  "PROGRAM  FINISHED"  is  displayed 
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IV.  PROGRAM  "SNSR15" 


A.  Introduction 

Information  concerning  the  fractional  surface  area  represented  by 
individual  sensors  as  well  as  their  calibration  constants  is  needed  by  program 
"HEAT15"  to  properly  scale  the  raw  data.  These  values  are  contained  in  a  data 
file  called  "ARAY15."  While  program  "HEAT15”  enables  the  operator  to  make 
changes  in  "ARAY15"  it  cannot  create  the  original  file.  Program  "SNSR15"  can 
be  used  either  to  create  a  new  "ARAY15"  file  or  to  modify  an  existing  one.  An 
"ARAY15"  must  exist  on  each  flexible  disk  on  which  "HEAT15"  is  to  record  scaled 
data.  A  program  listing  appears  in  Appendix  3.  The  equipment  requirements 
are  the  same  as  for  "HEAT15." 


B.  User  Instructions 


1.  Insert  program  disk  into  drive  0 
Type:  drive  0,  707 

Press:  EXECUTE 

2.  Type:  get  "SNSR15" 

Press:  EXECUTE 

3.  When  end  of  line  mark  (H  is  displayed 
Press :  RUN 

4.  When  "Remove  Program  Disk"  is  displayed; 

a.  Remove  disk  from  drive  0 

b.  Press:  CONTINUE 

5.  When  "Insert  Disk  for  ARAY15  file"  is  displayed; 

a.  Insert  disk  into  drive  0 

b.  Press:  CONTINUE 

6.  When  "Printer  Select  Code  *  ?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

7.  When  "Create  new  ARAY15  file?"  is  displayed; 

a.  If  previous  "ARAY15"  file  exists, 

1)  Press :  NO 

2)  Go  to  step  8 

b.  If  no  previous  "ARAY15"  file  exists, 

1)  Press:  YES 

2)  Go  to  step  10 

8.  [Current  contents  of  "ARAY15"  file  are  printed.] 

9.  When  "Modify  ARAY15  file?"  is  displayed; 

a.  If  changes  are  to  be  made, 

1)  Press:  YES 

2)  Go  to  step  10 

b.  If  file  is  correct  as  it  stands, 

1)  Press:  NO 

2)  Program  stops 

10.  When  "Number  of  MPX  HFS  -  ?"  is  displayed; 

a.  Type:  N,  where  N  is  the  number  of  multiplexed  heat  flux  sensors 
(Note:  In  steps  10-21,  if  the  Information  requested  in  a  particular 
line  need  not  be  changed  from  that  already  stored  in  "ARAY15,"  simply 
press  CONTINUE.  The  orignially  entered  number  will  remain  unchanged.) 

b.  Press:  CONTINUE 

11.  When  "Number  of  MPX  TMP  sensors  ■  ?"  is  displayed; 

a.  Type:  N,  where  N  is  the  number  of  multiplexed  temperature  sensors 

b.  Press:  CONTINUE 
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12.  When  "Number  of  AUX  sensors  *  ?"  is  displayed; 

a.  Type:  N,  where  N  is  the  number  of  auxiliary  sensors 

b.  Press:  CONTINUE 

13.  When  "Sensor  0  <I>"  is  displayed, 

Press :  CONTINUE 

14.  When  "Serial  0  ■  ?"  is  displayed; 

a.  Type:  number  for  serial  number  of  sensor  0  I 

b.  Press:  CONTINUE 

15.  When  "Cal  const  =  ?"  is  displayed;  2 

a.  Type:  number  for  heat  flux  calibration  constant  (W/M  -mV)  for  sensor 
0  I 

b.  Press:  CONTINUE 

16.  When  "Weighting  factor  *  ?"  is  displayed; 

a.  Type:  number  for  fractional  surface  area  weighting  factor  (decimal) 
for  sensor  0  I 

b.  Press:  CONTINUE 

17.  Is  I  <  10? 

a.  If  yes, 

1)  I  is  incremented  by  1 

2)  Go  to  step  13 

b.  If  no,  go  to  step  18 

18.  When  "AUX  0  <I>"  is  displayed; 

Press :  CONTINUE 

19.  When  "Serial  0  *  ?"  is  displayed; 

a.  Type:  number  for  auxiliary  sensor  0  I 

b.  Press:  CONTINUE 

20.  When  "Cal  const  *  ?"  is  displayed;  2 

a.  Type:  number  for  heat  flux  calibration  constant  (W/M  -mV)  for 
auxiliary  sensor  0  I 

b.  Press:  CONTINUE 

21.  When  "Weighting  factor  *  ?"  is  displa  1; 

a.  Type:  number  for  surface  area  we -g  ting  factor  (decimal)  for 
auxiliary  sensor  0  I 

b.  Press:  CONTINUE 

22.  Is  I  <  5? 

a.  If  yes,  I  is  incremented  by  1,  go  to  step  18 

b.  If  no,  go  to  step  23 

23.  [The  contents  of  file  "ARAY15"  just  entered  are  printed.] 
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24.  When  "Does  previous  AKAY15  file  exist?"  is  displayed 

a.  If  file  exists  on  the  flexible  disk. 

Press:  YES 

b.  If  file  does  not  already  exist  on  the  disk. 

Press :  NO 

25.  [New  "ARAY15"  file  is  stored  on  flexible  disk.] 

26.  ["Program  Finished"  is  displayed.] 


V.  PROGRAM  "PLT15" 


A.  Introduction 

It  Is  often  useful  to  plot  data  from  the  individual  sensors  in  order 
to  verify  their  proper  functioning  and  to  look  for  trends  and  other  features 
of  the  data.  Program  "PLT15"  performs  this  function  for  scaled  data  files 
created  by  "HEAT15"  or  "cmbDAT."  The  program  allows  the  user  to  select 
whether  he  wants  to  inspect  the  output  of  a  few  sensors  or  wants  all  the  data 
to  be  plotted  automatically.  Experience  has  shown  that  when  a  heat  flux 
transducer  malfuctions  it  usually  outputs  a  constant,  near-zero  voltage.  The 
temperature  probes,  however,  often  produce  wildly  varying  signals  when  they 
become  defective.  To  eliminate  these  distracting  traces  from  the  plots,  the 
program  allows  individual  temperature  sensors  to  be  deleted  from  the  automatic 
cycle.  It  should  be  noted  that  due  to  restrictions  on  the  memory  capacity  of 
the  computer,  only  scaled  data  files  with  the  number  of  records  <375  can  be 
plotted.  This  limit  usually  is  not  a  problem  since  it  represents  an  elapsed 
time  of  ^ 6  h. 

The  program  listing,  variable  assignments,  and  equipment  list  are 
given  in  Appendix  4.  Detailed  user  instructions  for  "PLT15"  are  given  in  the 
following  section. 
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User  Instructions 


1.  Insert  program  disk  in  drive  0 
Type:  get  "PLT15" 

Press:  EXECUTE 

2.  When  end  of  line  mark  0-)  is  displayed 
Press:  RUN 

3.  When  "Remove  Program  Disk"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

4.  When  "Insert  Data  Disk"  is  displayed; 

a.  Insert  disk  containing  scaled  data  to  be  plotted  in  drive  0 

b.  Press:  CONTINUE 

5.  When  "Enter  name  of  analyzed  data  file"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

6.  When  "Plotter  Select  Code  *  ?"  is  displayed; 

a.  Type:  select  code  of  plotter  to  be  used 

b.  Press:  CONTINUE 

c.  Put  paper  on  plotter  and  set  points  PI  and  P2  as  necessary 

7.  When  "Number  of  Heat  Flux  sensors  *  ?"  is  displayed; 

a.  Type:  total  number  (multiplexed  and  auxiliary)  of  flux  sensors  to  be 
plotted  (maximum  of  15) 

8.  When  "Max  time  to  be  searched  -  ?"  is  displayed; 

a.  Type:  number  (in  minutes)  [Program  will  find  maximum  and  minimum 
values  of  heat  flux  and  temperature;  it  will  seach  from  time  zero  to 
the  end  of  data  file  or  to  time  entered  here,  whichever  is  less.] 

b.  Press:  CONTINUE 

c.  "SEARCHING  FOR  MAXIMUM  VALUES"  is  displayed 

d.  Maximum  and  minimum  values  are  printed 

9.  When  "Plot  heat  flux  data?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES  (key  f_) 

2)  Go  to  step  10 

b .  If  no , 

1)  Press:  NO  (key  f,) 

2)  Go  to  step  22 

10.  When  "Draw  axes?"  is  displayed; 

a.  If  you  want  axes  drawn  for  heat  flux  plot. 

Press:  YES  (x-axis  is  time  in  minutes,  y-axis  is  heat  flux  in  W/M2) 

b.  If  you  want  data  plotted  without  axes  being  drawn 
Press:  NO 
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11.  When  "Maximum  value  of  time  =  ?"  is  displayed; 

a.  Type:  number  for  maximum  value  of  time  wanted  on  X-axis  of  plot 

b.  Press:  CONTINUE 

12.  When  "Maximum  value  of  heat  flux  *  ?"  is  displayed;  2 

a.  Type:  number  wanted  for  maximum  value  of  heat  flux  (W/M  ;  on  Y-axis 
of  plot 

b.  Press:  CONTINUE 

13.  When  "Minimum  value  of  heat  flux  =  ?"  is  displayed;  2 

a.  Type:  number  wanted  for  minimum  value  of  heat  flux  (W/M^)  on  Y-axis 
of  plot 

b.  Press:  CONTINUE 

14.  If  you  answered  "NO"  in  step  10,  go  to  step  17. 

15.  When  "X-axis  tic  interval  *  ?"  is  displayed; 

a.  Type:  number  (in  minutes)  that  represents  the  time  between  labelled 
tic  marks  on  the  X-axis 

b.  Press:  CONTINUE 

16.  When  "Y-axis  tic  interva^*  ?"  is  displayed; 

a.  Type:  number  (in  W/M  ;  that  represents  the  interval  between  labelled 
tic  marks  on  the  Y-axis 

b.  Press:  CONTINUE 

c.  Axes  are  drawn 

17.  When  "Plot  individual  sensors?"  is  displayed; 

a.  If  you  want  all  sensors  automatically  plotted, 

1)  Press:  NO 

2)  Go  to  step  18 

b.  If  you  want  to  select  only  certain  sensors  to  be  plotted, 

1)  Press:  YES 

2)  Go  to  step  18 

18.  ["Heat  Flux  Data  is  being  read"  is  displayed.] 

19.  Are  individual  sensors  to  be  plotted? 

a.  If  you  answered  "YES"  in  step  17,  then  "Sensor  HF  to  be  plotted?"  is 
displayed; 

1)  Type:  number  (auxiliary  HFS  if  I  is  selected  by  entering  1i  [I  +  10]) 

2)  Press:  CONTINUE 

3)  Go  to  step  20  (To  get  out  of  loop,  enter  a  number  >15,  then  go 
to  step  22) 

b.  If  you  answered  "NO"  in  step  17,  then  all  sensors  will  be  plotted 
automatically.  Go  to  step  20. 

20.  ["Plotting  sensor  if  <n>"  is  displayed  as  the  data  are  plotted.] 

21.  Are  individual  sensors  being  plotted? 
a.  If  yes,  return  to  step  19. a. 
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b.  If  sensors  are  being  plotted  automatically 

1)  If  n  <  number  entered  In  step  7, 

a)  n  is  Incremented  by  1 

b)  Go  to  step  20 

2)  If  n  ■  number  entered  In  step  7,  go  to  step  22. 

22.  When  "Plot  Individual  TMP  sensors?"  Is  displayed; 

a.  If  you  want  to  plot  only  Individually  selected  sensors 

1)  Press:  YES 

2)  Go  to  step  25 

b.  If  you  want  temperatures  plotted  automatically, 

1)  Press:  NO 

2)  When  "Do  you  want  to  delete  some  TMP?"  is  displayed; 

a)  If  you  want  some  temperature  sensors  deleted  from  the 
automatic  plotting  routine, 

(1)  Press:  YES 

(2)  Go  to  step  23 

b)  If  you  want  all  sensors  plotted, 

(1)  Press:  NO 

(2)  Go  to  step  25 

23.  When  "How  many  TMPs  to  be  deleted?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

24.  When  "TMP  sensor  #  to  be  deleted  ■  ?"  is  displayed; 

a.  Type:  number  (1  <  n  S  17)  of  one  of  the  sensors  to  be  deleted 
(auxiliary  i  I  Is  selected  by  it  [1  +  12];  rectal  temperature  is  it  11; 
ambient  temperature  is  #  12) 

b.  Press:  CONTINUE 

c.  Return  to  step  24. a.  until  the  number  of  sensors  specified  in  step  23 
have  been  selected 

25.  When  "Prepare  plotter  for  TEMP  plot"  is  displayed; 

a.  Remove  heat  flux  plot 

b.  Position  paper  for  temperature  plot 

c.  Press:  CONTINUE 

26.  When  "Draw  axes?"  is  displayed; 

a.  If  you  want  axes  drawn  for  temperature  plot  Q 

Press:  YES  (X-axis  is  time  in  minutes,  Y-axis  is  temperature  C) 

b.  If  you  want  data  plotted  without  axes  being  drawn 
Press:  NO 

27.  When  "Maximum  value  of  time  -  ?"  is  displayed; 

a.  Type:  number  wanted  for  maximum  value  of  time  on  X-axis  of  plot 

b.  Press:  CONTINUE 

28.  When  "Maximum  value  of  temperature  ■  ?"  is  displayed; 

a.  Type:  number  wanted  for  maximum  value  of  temperature  (°C)  on  Y-axis 
of  plot 

b.  Press:  CONTINUE 
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29.  When  "Minimum  value  of  temperature  »?"  is  displayed; 

a.  Type:  number  wanted  for  minimum  value  cf  temperature  (  C)  on  Y-axis 
of  plot 

b.  Press:  CONTINUE 

30.  If  you  answered  "NO"  in  step  26,  go  to  step  33. 

31.  When  "X-axis  tic  interval  *  ?"  is  displayed; 

a.  Type:  number  (in  minutes)  that  represents  the  time  between  labelled 
tic  marks  on  X-axis 

b.  Press:  CONTINUE 

32.  When  "Y-axis  tic  interval  ■  ?"  is  displayed; 

a.  Type:  number  (°C)  that  represents  the  interval  between  labelled  tic 
marks  on  th  Y-axis 

b.  Press:  CONTINUE 

c.  Axes  are  drawn 

33.  Are  individual  sensors  to  be  plotted? 

a.  If  you  answered  "YES"  in  step  22, 

then  "TMP  sensor  to  be  plotted  -  ?"  is  displayed; 

1)  Type:  number  (auxiliary  #  I  is  selected  by  entering  it  [1  +  12]; 
rectal  temperature  «  11;  ambient  temperature  *  12) 

2)  Press:  CONTINUE 

3)  Go  to  step  34  (To  get  out  of  the  loop,  enter  a  number  >17,  then 
go  to  step  36) 

b.  If  you  answered  "NO"  in  step  22,  then  sensors  will  be  plotted 
automatically,  go  to  step  34 

34.  ["Plotting  sensor  it  <n>"  is  displayed  as  the  data  are  plotted.] 

35.  Are  individual  sensors  being  plotted? 

a.  If  yes,  return  to  step  33. a. 

b.  If  sensors  are  being  plotted  automatically, 

1)  If  (n-2)  <  number  entered  in  step  7, 

a)  n  is  incremented  by  1 

b)  Go  to  step  34 

2)  If  (n-2)  =  number  entered  in  step  7, 

Go  to  step  36 

36.  When  "Another  set  of  plots  to  be  run?"  is  displayed; 

a.  If  yes, 

1)  Press :  YES 

2)  Go  to  step  5 

b.  If  no, 

1)  Press:  NO 

2)  "PLOTTING  ROUTINE  FINISHED"  is  displayed 
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VI.  Program  "AVG15" 

A.  Introduction 

Often  when  data  are  being  analyzed,  it  is  desirable  to  compare  the 
steady-state  values  obtained  under  one  set  of  experimental  conditions  with 
those  found  for  different  conditions.  A  more  accurate  comparison  can  be  made 
if  the  heat  flux  and  temperature  results  are  averaged  over  a  number  of  data 
collection  cycles.  Program  "AVG15"  performs  this  function. 

Once  the  operator  has  entered  the  numbers  of  the  first  and  last  data 
records  which  specify  a  time  interval,  the  program  finds  the  arithmetic  mean 
of  the  output  of  each  sensor  for  the  interval  designated.  The  name  of  each 
body  site  monitored  is  stored  in  the  data  file  "SITE"  which  can  be  created 
and/or  modified  using  "AVG15 . "  The  output  appears  on  the  external  printer. 

It  consists  of  the  mean  values  for  each  transducer  of  heat  flux,  skin 
temperature,  differential  temperature  between  skin  and  ambient,  and  convective 
heat  flow  coefficient. 

The  user  instructions  appear  in  the  following  section.  Program 
listing  and  variable  assignments  are  given  in  Appendix  5. 
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User  Instructions 


1.  Insert  program  disk  in  drive  0 
Type:  get  "AVG15" 

Press:  EXECUTE 

2.  When  end  of  line  mark  (b)  is  displayed 
Press:  RUN 

3.  When  "Remove  Program  Disk"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

4.  When  "Insert  Data  Disk  in  drive  0"  is  displayed; 

a.  Insert  disk 

b.  Press:  CONTINUE 

5.  When  "Printer  Select  Code  ■  ?"  is  displayed; 

a.  Type:  select  code  number 

b.  Press:  CONTINUE 

6.  When  "Enter  name  of  analysed  data  file"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

7.  When  "Do  you  want  max  time  search?"  is  dispalyed; 

a.  If  yes, 

1)  Press:  YES  (key  f  ) 

2)  Go  to  step  8 

b.  If  no, 

1)  Press:  NO  (key  f,) 

2)  Go  to  step  10 

8.  ["Finding  maximum  time"  is  displayed.] 

9.  On  internal  printer  is  output: 

a.  "Max  record  #  *  <n>" 

b.  "Max  time  •  <m>" 

10.  When  "Create  new  SITE  file?"  is  displayed; 

a.  If  a  "SITE"  file  has  been  previously  stored  on  this  disk, 

1)  Press :  NO 

2)  Go  to  step  13 

b.  If  a  "SITE"  file  does  not  already  exist  on  this  disk, 

1)  Press:  YES 

2)  Go  to  step  11 

11.  When  "SENSOR  #  <I>"  is  displayed; 

a.  Press:  CONTINUE 

b.  When  "Body  site  name  •  ?"  is  displayed; 

1)  Type:  name  (maximum  of  10  characters) 

2)  Press:  CONTINUE 
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c.  Is  I  <  15? 

1)  If  yes, 

a)  I  is  Incremented  by  1 

b)  Go  to  step  11 

2)  If  no,  go  to  step  12 

12.  When  "Does  Previous  SITE  file  exist?"  Is  displayed 
Press:  NO 

13.  When  "Do  you  want  SITE  printed?"  Is  displayed; 

a.  If  yes, 

1)  Press:  YES 

2)  Contents  of  file  are  printed  on  external  printer 

3)  Go  to  step  14 

b .  If  no , 

1)  Press:  NO 

2)  Go  to  step  14 

14.  When  "Do  you  want  to  change  SITE?"  Is  displayed; 

a.  If  no, 

1)  Press:  NO 

2)  Go  to  step  17 

b.  If  yes, 

1)  Press :  YES 

2)  Go  to  step  15 

15.  When  "Sensor  if  <I>"  is  displayed; 

a.  Press:  CONTINUE 

b.  When  "Body  site  name  ■  ?"  is  displayed; 

'  1)  If  name  is  not  to  be  changed, 

a)  Press:  CONTINUE 

b)  Go  to  step  c. 

2)  If  the  name  is  to  be  changed, 

a)  Type:  new  name 

b)  Press:  CONTINUE 

c)  Go  to  step  c. 

c.  Is  I  <  15? 

1)  If  yes, 

a)  I  is  incremented  by  1 

b)  Go  to  step  15 

2)  If  no,  go  to  step  16 

16.  When  "Does  previous  SITE  file  exist?"  is  displayed, 

a.  Press:  YES 

b.  New  "SITE"  file  is  recorded 

c.  Go  to  step  13 

17.  When  "#  of  first  record  wanted  ■  ?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

18.  When  "#  of  last  record  wanted  ■  ?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 
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19.  ["Averaging  Data"  Is  displayed.] 

(The  tine-averaged  value  for  each  heat  flux  and  temperature  sensor  will 
be  computed  for  the  interval  between  the  first  and  last  data  records 
chosen  above.) 

20.  [Average  values  are  printed  on  external  printer  using  the  contents  of  the 
"SITE"  file  to  identify  each  sensor.] 

21.  When  "Average  another  period?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES 

2)  Go  to  step  17 

b.  If  no, 

1)  Press:  NO 

2)  Go  to  step  22 

22.  When  "Analyze  another  data  file?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES 

2)  Go  to  step  6 

b.  If  no, 

1)  Press:  NO 

2)  Program  ends 
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VII.  UTILITY  PROGRAMS 
A.  Introduction 

The  four  programs  described  in  this  section  are  utility  programs 
used  to  troubleshoot  the  system  or  to  perform  minor  editing  of  the  scaled  data 
files.  Program  listings  are  given  in  Appendix  6. 

Program  "RCAL15"  reads  the  information  stored  in  a  calibration  file 
and  prints  the  values  on  an  external  printer.  Program  "RDAT15"  performs  the 
same  function  for  an  original  data  file.  Note  that  the  numbers  printed  are 
the  voltages  actually  measured  by  the  DVM  and  are  not  scaled .  Thus  the 
operator  has  access  to  the  raw  data,  which  is  often  useful  in  tracking  down 
problems  in  the  system.  The  printout  of  "RCAL15"  is  sufficiently  labelled  so 
that  there  should  be  no  confusion  as  to  the  information  that  is  displayed. 

Note  that  both  these  programs  assume  the  printer  select  code  is  706.  The 
format  of  the  printout  for  "RDAT15"  is  the  following: 
heading  of  data  file 

#  temperatures  multiplexed  //  heat  flux  multiplexed 

//  of  record  time  of  record  (minutes) 

10  values  of  multiplexed  heat  flux 
12  values  of  multiplexed  temperature 
5  values  of  auxiliary  heat  flux 
5  values  of  auxiliary  temperature 

The  section  in  brackets  is  repeated  for  each  data  record  in  the  data  file. 
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Occasionally  a  data  file  is  closed  before  an  experiment  is  completed. 

This  situation  can  arise  for  a  number  of  reasons,  such  as  reserving  too  few 
records  on  the  disk  to  hold  the  data  or  a  power  outage  that  causes  the 
computer  to  lose  the  program.  In  such  cases,  the  program  can  be  re-started 
and  the  ensuing  data  recorded  in  a  new  file.  The  fact  that  data  from  a  given 
experiment  are  contained  in  more  than  one  file  can  be  inconvenient  when  the 
user  desires  a  plot  of  the  complete  experiment  or  wants  to  run  an  analysis 
routine.  Program  "cmbDAT"  combines  two  scaled  data  files  (created  by  "HEAT15") 
into  a  single  one.  Drive  0  of  the  dual  flexible  disk  drive  must  contain  the 
disk  with  the  files  to  be  combined  and  drive  1  the  disk  on  which  the  new  file 
is  to  be  recorded.  To  find  the  number  of  records  required  on  the  disk  for 
each  of  the  files,  the  operator  can  execute  a  catalogue  command  for  drive  0. 
When  the  program  has  finished,  the  original  files  are  left  unaltered;  the  new 
combined  file  is  recorded  on  the  drive  1  disk  under  the  name  selected. 

The  program  "negHFS"  is  helpful  whenever  heat  flux  transducers  have  been 
reverse-wired  or  applied  to  a  subject  with  the  wrong  surface  toward  the  skin. 
Since  the  voltage  output  of  these  sensors  only  changes  sign  when  the  direction 
of  heat  flow  changes,  the  data  collected  can  have  the  correct  amplitude  but 
the  wrong  algebraic  sign.  Any  scaled  data  file  produced  by  "HEAT15"  can  be 
corrected  for  this  problem  with  program  "negHFS." 

The  dual  flexible  disk  drive  (HP  9895)  is  needed;  the  disk  containing  the 
scaled  data  is  placed  in  drive  0,  while  a  "scratch"  disk  used  for  temporary 
storage  is  placed  in  drive  1.  The  operator  selects  which  heat  flux  signals 
are  to  be  reversed.  When  the  program  is  finished,  the  original  scaled  data 
file  has  been  replaced  with  the  new  file  (with  the  appropriate  reversed 
values)  and  the  scratch  disk  is  left  with  no  new  files  recorded  on  it. 
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User  Instructions  for  "RCAL15" 


1.  Insert  program  disk 
Type:  get  "RCAL15" 

Press:  EXECUTE 

2.  When  "end  of  line  mark  (H  is  displayed 
Press :  RUN 

3.  When  "Remove  Program  Disk"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

4.  When  "Insert  Data  Disk"  is  displayed; 

a.  Insert  disk 

b.  Press:  CONTINUE 

5.  When  "Enter  name  of  file  to  be  read"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

c.  Contents  of  file  are  printed 

d.  Program  ends 

(Note:  Program  assumes  select  code  of  external  printer  is  706.) 
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User  Instructions  for  "RDAT15" 

1.  Insert  program  disk 
Type:  get  "RDAT15" 

Press:  EXECUTE 

2.  When  end  of  line  mark  Q-)  is  displayed 
Press :  RUN 

3.  When  "Remove  Program  disk"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

4.  When  "Insert  Data  Disk"  is  displayed; 

a.  Insert  disk 

b.  Press:  CONTINUE 

5.  When  "Enter  name  of  file  to  be  read"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

6.  When  "Do  you  want  temperature  values?"  is  displayed; 

a.  If  yes, 

1)  Press:  YES  (key  f~) 

2)  Go  to  step  7 

b.  If  no, 

1)  Press:  NO  (key  f,) 

2)  Go  to  step  7 

7.  [Contents  of  file  are  printed.] 

Program  ends 
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User  Instructions  for  "cmbDAT 


1.  Insert:  program  disk  into  drive  0 
Type :  get  "cmbDAT" 

Press:  EXECUTE 

2.  When  end  of  line  mark  (H  is  displayed 
Press :  RUN 

3.  When  "Remove  Program  Disk"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

4.  When  "Insert  Data  Disk  in  drive  0"  is  displayed; 

a.  Insert  disk  with  data  files  to  be  combined 

b.  Press:  CONTINUE 

5.  When  "Insert  new  file  disk  in  drive  1"  is  displayed; 

a.  Insert  disk  on  which  combined  file  is  to  be  recorded 

b.  Press:  CONTINUE 

6.  When  "Name  of  first  data  file?"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

7.  When  "Name  of  second  data  file?"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

8.  When  "Name  of  combined  data  file?"  is  displayed; 

a.  Type:  name 

b.  Press:  CONTINUE 

9.  When  "#  of  records  for  combined  file?"  is  displayed; 

a.  Type:  number  (must  be  >  sum  of  records  for  files  1  and  2) 

b.  Press:  CONTINUE 

0.  When  "New  header  for  combiner,  file  ■  ?"  is  displayed; 

a.  Type:  alphanumeric  line  up  to  80  characters  long 

b.  Press:  CONTINUE 

c.  Return  to  step  10  until  3  lines  have  been  entered 

.1.  When  "Elapsed  minutes  between  files  -  ?"  is  displayed; 

a.  Type:  time  in  minutes  that  elapsed  between  the  moment  data 
collection  stopped  for  first  file  and  restarted  for  second  file 

b.  Press:  CONTINUE 

.2.  ["Combining  Data  Files  Now"  is  displayed.] 

.3.  When  "Finished"  is  displayed; 

a.  Program  has  ended 

b.  Remove  disks 


User  Instructions  for  "negHFS" 

1.  Insert:  program  disk  in  drive  0 
Type:  get  "negHFS" 

Press:  EXECUTE 

2.  When  end  of  line  mark  Ch)  is  displayed 
Press :  RUN 

3.  When  "Remove  Program  Disk"  is  displayed; 

a.  Remove  disk 

b.  Press:  CONTINUE 

4.  When  "Insert  Data  Disk  in  drive  0"  is  displayed; 

a.  Insert  disk  on  which  data  file  is  recorded 

b.  Press:  CONTINUE 

5.  When  "Insert  Scratch  Disk  in  drive  1"  is  displayed; 

a.  Insert  disk  to  be  used  as  temporary  storage  disk  during  running  of 
program 

b.  Press:  CONTINUE 

6.  When  "Name  of  Data  file?"  is  displayed; 

a .  Type :  name 

b.  Press:  CONTINUE 

7.  [Header  of  file  is  printed.] 

8.  When  "Number  of  records  in  data  file?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

9.  When  "How  many  HFS  to  be  reversed?"  is  displayed; 

a.  Type:  number 

b.  Press:  CONTINUE 

10.  When  "HF  sensor  #  to  be  reversed  *  ?"  Is  displayed; 

a.  Type:  number  (from  1  to  15)  of  one  heat  flux  sensor  whose  signal  is 
to  be  inverted.  (Note:  auxiliary  sensor  f  I  is  assigned  the  number 
[10  +  I]  in  this  instance.) 

11.  ["Program  is  Running  Now"  is  displayed.] 

12.  When  "Finished"  is  displayed,  remove  disks. 
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The  values  obtained  during  calibration  are  printed  for  Inspection  by 
the  user.  The  heat  flux  circuits  have  low  offset  and  a  nominal  gain  of  500; 
thus,  the  low  level  calibration  output  should  be  <0.05  V  and  the  high-level 
value  should  equal  <2.5  V.  For  temperature,  the  nominal  scaling  is  100  mV/°C. 
The  low  output  should  read  M),l  V  and  the  high  output  *\<4.0  V. 

A  program  listing,  variable  allocations,  flow  charts,  and  required 
equipment  are  given  in  Appendix  1. 
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"FLUX15" 
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EQUIPMENT  REQUIRED 


1.  Hewlett-Packard  9825B  desktop  computer 

or 

Hewlett-Packard  9825A  with  the  followings  ROM's: 

a.  general  I/O 

b.  extended  I/O 

c .  advanced  programming 

d.  string  variable 

2.  Hewlett-Packard  (HP)  9895/9885  flexible  disk  drive  ROM 

3.  HP  98034A  (HP-IB)  interface  bus 

4.  HP  9803 5A  real-time  clock 

5.  Printer  for  computer  (such  as  HP  7245,  HP  9866,  or  HP  9876) 

6.  HP  3495A  scanner  with  high  speed  controller  and  low-thermal  relay  options 

7.  HP  3455A  digital  voltmeter 

8.  HP  9885M  flexible  disk  drive 


"FLUX15" 
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IDENTIFICATION  OF  SCANNER  CHANNELS 


SCANNER  CHANNEL 


INPUT  SIGNAL 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15-20 


(not  used) 

Clock  from  controller 
Multiplexed  Heat  Flux 
Multiplexed  Temperature 
Auxiliary  ft  1  Heat  Flux 
Auxiliary  ft  1  Temperature 
Auxiliary  //  2  Heat  Flux 
Auxiliary  ft  2  Temperature 
Auxiliary  ft  3  Heat  Flux 
Auxiliary  ft  3  Temperature 
Auxiliary  ft  4  Heat  Flux 
Auxiliary  ft  4  Temperature 
Auxiliary  ft  5  Heat  Flux 
Auxiliary  ft  5  Temperature 
Calibration  Voltage  Source 
(not  used) 


40 


PROGRAM  LISTING 


Appendix  lc 


3  •• 

Q)  3 

cp  ••  o  •• 

IQs  %  3 

U  AJ 

0  6  > 

p  o  C  .o 

to  U  -P 

44  6 

P  T3  « 

C  u  <U  u 

C  d)  4J  U 

O  6  (0  a 

W  P  0)  Q) 


C  <U  <0 
O  u  P 

U  to 
c  -o 
o  -p 

\  'O 

«£  u  C 
IU  to 
CO  -C 
6  44  C 

U4  o 


0  tu  -4 

• 

6 

44  P  tU  TJ 

to  p 

14  *  <0  14 

tu 

u  u 

«  6  6  <0 

Ul 

O'  O' 

Oi  d>  u 

3 

O  - 

•pox: 

U  S 

P  10  44  0 

<b  •• 

Pi  m 

•P  >,C4 

is  = 

to 

CO  -P  .C 

u 

••  3s 

>. 

0  P 

m  to  c 

to  J 

P  c 

P  to  0  44 

H  Qj 

44  0 

X  0  -p  O 

2 

to  0 

DPP 

CO 

J  to  to 

P  4t 

to 

Uj  P  u  gi 

0  * 

p 

to  J3  6 

to 

(0  V 

■O  6  4  10 

C  tN 

T3  P 

IU  p  P  c 

O  ao 

3 

ip  a»  to 

to  oi 

CP  O 

px  u  at 

Ip 

C  tu 

to  p  .c  m 

•P  4 

O 

-4  0) 

to  x:  64 

«  0  u 

p  * 

w  « 

■p  p 

0)  P  to 

c 

Z  TJ 

6  g  • 

tu  £ 

p  a 

<D  0 

e  -p 

Z  0)  •• 
<  CO  1 

to  0  fl) 

4DN 

3  -P 

33  3  •* 

U  u  a» 

U4 

CO  0 

u  0 

0"«  *0 

• 

V  tu 

P  0 

0  p 

a>  u  .. 

W  P 

os  0  P 

U  <0 

P  v  c 

p 

Id  C  U 

a-w  o'  io  w  0 

0  0 

z  1  1 

to  0 

U  34 

64  0 

z  1  « 

CO  TJ  P 

to  co 

1  s 

< 

•P  to 

C  44  C 

p<  a  w 
a>  r.  <u 

p  p 

U  ©  -4 

cn  m  m 

HO* 

3  S  S 

01  4J  > 

«  a  « 

&& 

ass 

■  iCutbtsbisbi 
Ci<  £ 


Qj&iasgsooo 


c 

••  *•  o 

«  *  ••  -f4 

Cu  s  Cu  s  4J 
SHIP  IQ 
u 

•M 

X  X  X  X 

3  3  3  3  (0 
<C  rf  <  <  O 
I  I  I  I  I 
I  I  I  I  I 
OrtNMn 


too  r— 

*  oo 

—  *•  O 

in  P  .P 

<  •— *  r— t 

C  t/V  .» 
*■  <33  O 

, _  »  • 

in  , —  rn 
i-t  'O  44 

H  w>  *  m 

-  <  cn 

—  -  >1  p 

in  —  c«3  e 

*— * «— >  *  •» 

5  OS  r* 

4£ 

6  S  P  6 
4  4  y  $ 
O  O  51  U 


OHNn 


••  ••  ••  ••  •«  »OMNf'4ii/liOP,ODO'OHNn4'ifli0r*a)O'Oi 

<flOifif'00»HH4HH4HHHHNN(S(SNNNNNNni 


32:  wrt  722,  "P1R3T2M3AOHOOO 


(U  (N 
tn  +  in 

u  O  » 
d»  hi  o 
•u  cn-^r 
c  •»  » 

•pH  \0  t~* 
HON 
Qj  P»  » 

*  «*  Z 

z 

HJ  jQ 

e  im  n» 
<u  -h  > 


♦ 

_ 

o 

—  CM  PP 

Ol 

pH  — *m 

+ 

pp  tn-  pp 

a 

in-  m  in- 

m  pto 

o 

-Z  p 

p 

z  z 

3 

Hi 

hp. 

HI  14  HI 

C 

h  }  u 

t/>  -pH 

J  •*  3 

<  e 

»p  r—  •*> 

a 

*N 

, —  CN  — 

S  CM 

h-h 

a 

0) 

4)  • 

—  CO" — ' 

4J 

•*  Q  i 

< 

G  pH 

tn-  cq  tn- 

tn 

3  H»  3 

* 

to  • 

ca  -  cq 

—  tn  o 

J  S  3  pH 

■u  c  a 

p  i  p 

- 

M!  •>  O 

»  »  19  H 

B  a 

t  tyis 

10 

to  *  O 

3  3  W  p 

ini  01  <0 

cn  c  rr> 

4J 

p-i  —  (N 

TJ  ’O  O  J 

'm' 

C  -H  c 

to 

a  act  a 

a  «)  to 

Z  "H 

•Pi  'O  -Pi 

a 

tn  ro 

s  X  X  C  41 

HJ  N* 

T3  to  'O 

3 

UhS 

s  4)  4)  <D  <U 

■M  It 

to  4)  to 

Hi  pH 

J  Q\ 

pH  pH  W  10 

u  to  tn 

4)  JS  0) 

HI  10 

S3  <N 

•u  a-  a  u 

S  4J  TJ 

x:  n 

10  c 

hUO 

Hi  -H  -H  >,  .O 

•»  10  u 

IH4 

H>  ty 

X  J  II 

Qi* J  HJ  HI  -pH 

Nfl  0 

VW  0  ‘HI 

tn  -H 

u  m  m 

•p  pH  pH  <0  pH 

(N  O 

0  0 

tn 

JnDin 

pmm 

S  3  3  -pH  « 

P  W  4) 

Q> 

o 

ax\« 

— .(—ro 

— '  X  fs  G  pH  o 

3  41  U 

4>  C  4> 

HJ  u 

uo  « 

HN- 

p— CM  iH 

«  HJ 

C  -Pt  c 

c 

SJOr* 

""13 

pH  —  *J  tn  a  X  0 

i  O  to 

•iH  pH  'M 

4>  >. 

4!EbON 

O  13  ♦ 

—  t3  U  Cb  S  3  *■> 

00  to  *J 

pH  pH 

3  tfl 

os  m  . 

♦  4  oo 

o  »  &b  e  «e  * 

r»  hi  to 

0 

c 

O  <  Q  10 

00  00  • 

p  3  *p  Hi  kJ 

p  t0  T3 

H>  C  TJ 

-H  HI 

OEhHo 

•  •  m 

s  C 

10  0  Hi 

Hi  0 

a  o  \ 
a  X3 

UtiNU 
>  P!  D  J 
O  td  \  •• 
S  in  <  so 
u  z  *  o 
PS  w  »r* 

i  i  «  i 

a  an>  25 

to  01  Hi  HJ 

-O  XJ  *  -pH 


to  in  i 
|  ••  •• 
••  *  I 

«  B  J 

3»u 

SH  > 
B  U 
■J 

888 
d  o  tn 

s  t  s 


3  O  ro 

S  so 

% 

888 

J  J  s- 

uuw 

its 

4J  Hi  H> 
HUH 
Oj  Oi  &> 


3  •  « 

•  *#  « 

3  pH  ■ 

h  U  U  OHO 

«  ti  v  >ur> 

H  H  H  •»  * 

C  C  C  0  pH  \ 
W  W  U  Q  »  cs 

I  1  «  I  H  * 
U 

*i  *J  Hi  4J  H» 

G  C  C  C  «H  6 
4)  0)  4)  0)  *pH  uj 


O  wh 

O 

10 

u 
u  <u 
<U  £i  O 
**  6  * 
e  a  </> 
u  z  « 

I  > 

e 

n>  n>  <u 
c  c  a 
aj  a)  o 


hh  to  n>  m  >— 
hh 

HI  Hi  Hi  O  — 
H  J)  tl  t)  *)  </> 
«■*!  U  H  CQ 

l»C  C  CH  * 
<UIi)U  Ml 

S  3  3  1-4 

c  *> . 

O*  ti  Hi  *i  Hi  u 

tncecoa 
a  t)  0)  vw  to 


c  c 

J  W  -ft «  >. 

p  to  **  r  j  to 

B  0)  •**  Z 

P  W  10  >4  C 
H  CH  3  tn  Hi 
3  «  »  X 

u 

u  ca  cl<h  q, 
Q<  tn  tn  >-t  tn 
to  *0  •o  o  'O 


n^toior^flo^ioHNfn1 


mioro98|'0'^<Nn*iftio^{o«OMNn*iniop*« 

«««««iflinin<niftininininin«ioio«««i0io« 


42 


71:  for  1*1  to  H 
72:  ell  'MPXSCAN 


c 

•H 

e 

% 

CM 

• 

VO 

14-1 


rH  CM  rH 

CM  - 

i  i  i 

Hi  •  * 

vO  X 

0  0  o 

■U  4-1  CN 

4J  O  4-1 

X  *  fr.  - 

O'  O'  O' 

<U  »  cn 

l»  •«  l» 

C  O  • 

o  —  —  o  — 

•*  4J  »  LD 

• 

+  m  ro  +  ro 

—<6  U  VM 

T) 

•— * 

Hi  VW  *  * 

O 

0  p  p  O  p 

*— *  •*  *  3 

-o 

il  A  A  il  V 

CO  w  * 

c 

ry>  cfi  ctf  cr  o! 

♦  ♦  —II 

CO 

•«  •*. 

—  o  as  H 

f— vu  »— ■ 

Hi  O  % 

c 

m  -H  -i  n  -h 

—  O  1 —  0) 

0 

•»  •*. 

U  O  «  u 

•H 

cn  es  os  o  as 

A  *  *  V  % 

vO  *— *  0 

jj 

—  \  ho 

u 

CN  OS  rsl  in  06  CN 

Hi  CO  *s 

<L»  % 

*  CM  CM  CM 

— 1  CO 

co  44  r-  ("  <u  r- 

C  oi  « 

•H  0^ 

•  **H  *i 

Hi 

♦  ■*  —  -u 

0  P 

C1>  T5  T5  •*  'TJ 

w— - 

—  o\  <  6 

O  Q 

O  C6  «  flj  06  0) 

m  e 

% 

r~  •>  u  u  *  u 

♦ 

—  T3  —  •*  uj 

(0 

CN  •»  •*  CN  “ 

yj  4)  «  —  ... 

■u  ^ 

4J  CN  CN  CN  CN  CN 

CN 

»  —  U  —  |H  CO 

nj  -i 

U  C"  CN  CN  r*  CN 

«— * 

Z<  «  SE  rH  ^ 

Q  O 

?  r~  r~  r- 

rH 

cn  * 

«d!  *  ^  % 

S  •* 

•%  T3  'O 

•» « 

O0>  Ci3  H  a«  X! 

o 

o  4>  o'  cr  a>  o' 

m 

—  o 

cn  cn  «  ♦  -c  e  p  o 

fro 

•  u  u  u  u  u 

••  • 

M  O 

X  P  3  0—  •!-!  Z  o 

w  o 

CO  •*  4J  AJ  •«  4-* 

*  ON 

—  J 

P  — )  «  *  H  J 

TJ  O 

••  V44  CM  CM 

X  O 

SUH 

«c  «  *  r-t  «  »h  m  u 

ri  •*  rH 

1  *  CN  KO  in  CN  1/3 

y  r* 

♦  * 

»  H  ON  P  '-'OH'  ' 

i"  r~ 

CJ  no  r-  r» 

O 

— .  4J 

*  H  > 

.u 

2  U  U  4-» 

P  -U 

X  *i  ON"H  •*  ON.H  Jj 

O  u 

—  »H  G)  0  H  +  Oj*--  UwHH 

•u  O  «J  c 

KlEMflUJufld) 

*  * 

tf)  O  c 

UiutPUHHUU 

ct-h  *  a> 

i  i«.US>.U»u 

«•  •• 

r'*r»f*'r»r,»n'f**oooooo®coaooo®®aooNO'ONO'ONONO'ONO'ONi-t<-4 

43 
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210:  next  I 

211:  fmt  2,/, “AUXILIARY  TEMPERATURE  SENSORS: " ,/;N+ . 2+Mjwrt 
212:  H+.1»J4 


213:  for  1=1  to  A;wrt  M, I ,D [1, I ] ;next 
214:  ent  "Repeat  Calibration?" ,r 1 
215:  if  rl*l;gto  194 
216:  ent  "High  T  in  degrees  C  =  ?",r7 
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245:  wrt  9,"U1G" 

246:  oni  9,"TIc4S" 

247:  eir  9;  0-*J  ;  0*S  1 1] 
248:  wrt  709.3,2 
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236:  teg  722;red  722 ,R[2 ] ; R [2] +C{ U *C [ I ] ; J+W 
237:  gto  -l;if  P*l;0-*-P;gto  +1 
288:  CU1/J-CII] 
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317:  rew 

318:  dsp  “DATA  DUPLICATION  COMPLETED 
319:  ret 
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Appendix  Id 


VARIABLE  ASSIGNMENTS 


A 

B 

C,  D,  F 
E 
G 
H 

I,  J 

L 

M 

N 

P 

Q 

R 

U 

V 


number  of  auxiliary  sensors 
used 

variables  stored  on  flexible  disk  but  currently  not  assigned 

elapsed  time  in  minutes 

used 

number  of  temperatures  multiplexed 
used  as  counters 

number  of  heat  flux  sensors  multiplexed 
used  as  printer  and  format  number 
select  code  of  printer 

used  as  flag  for  expiration  of  scan  time 
number  of  data  records 
temporary  storage  of  DVM  reading 
number  of  current  data  record 
flag  for  ending  data  collection 


At*] 
B[*3 
C[*] 
D  [  *  ] 


G[*] 


H[*] 
Rt*l 
S[*] 
T  [  *  ] 
X[*] 


Y[*] 


Dfl.I] 

D[2,I] 

G[l]  . 

G[2] 

G[3] 


X[1,IJ 

X[2,I] 

X[3,I] 

X[4,I] 

*Y[1,I] 

Y[2,I] 


A[ I]  is  ouptut  of  auxiliary  heat  flux  sensor  it  I 
B[ I]  is  output  of  auxiliary  temperature  sensor  It  I 
used 

calibration  signals 

auxiliary  temperature  sensor  It  I  low  calibration  signal 

auxiliary  temperature  sensor  It  I  high  calibration  signal 

synchronization  signals 

voltage  set  as  clock  low  level 

voltage  set  as  clock  high  level 

voltage  set  as  synchronization  pulse  level 

H[ I]  is  output  of  multiplexed  heat  flux  sensor  it  I 

temporary  storage  of  DVM  readings 

temporary  storage  of  averaged  DVM  readings 

T[I]  is  output  of  multiplexed  temperature  sensor  It  I 

calibration  signals 

multiplexed  heat  flux  sensor  It  I  low  calibration  signal 
multiplexed  heat  flux  sensor  it  I  high  calibration  signal 
multiplexed  temperature  sensor  It  I  low  calibration  signal 
multiplexed  temperature  sensor  it  I  high  calibration  signal 
calibration  signals 

auxiliary  heat  flux  sensor  It  I  low  calibration  signal 
auxiliary  heat  flux  sensor  It  I  high  calibration  signal 


A$ 

B$ 

C$ 

D$ 

E$ 

G$ 

H$ 


data  file  name 

header  for  data  file 

calibration  file  name 

header  for  calibration  file 

used 

used 

used 
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rl 

yes/no  flag 

r2 

HFS  low  cal  input  (mV) 

r3 

HFS  high  cal  input  (mV) 

r4 

currently  not  assigned 

r5 

currently  not  assigned 

r6 

low  temperature  cal  input  (°C) 

r7 

high  temperature  cal  input  (°C) 
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Appendix  le 


TUJX 15" 
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Subroutine:  “CLOCK' 


Return 


Subroutine:  “CALHFS 


Select  Am -^*1 
HFLUm 


Subroutine:  “CALTMP” 


59 


Subroutine:  “CALM" 


Select  Aux  ■#  I 
TMP  Line 


Return 


Subroutine:  “AUXSCAN” 


“1  Y„ 


Compute  Average 
for  HF,  TMP^t  I 


"HEAT15" 


Appendix  2a 


EQUIPMENT  REQUIRED 


1.  Hewlett-Packard  (HP)  9825B  desktop  computer 

or 

HP  9825A  computer  with  the  following  ROM's: 

a.  general  I/O 

b .  extended  1/ 0 

c.  advanced  programming 

d.  string  variable 

2.  HP  9895/9885  flexible  disk  drive  ROM 

3.  HP  9895  dual  flexible  disk  drive 

4.  Printer,  such  as  HP  7245,  HP  9866,  HP  9876 

5.  HP  98034A  (HP- IB)  interface  bus 
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"HEAT15" 


Appendix  2c 


VARIABLE  LISTING 


A 

B 

C 

D 

E 

F 

G 

H 

I 

L 

M 

N 

P 

U 


Height  of  subject  In  Inches 
Weight  of  subject  In  pounds 
used,  not  currently  assigned 
used,  not  currently  assigned 
elapsed  time  In  minutes 
used,  not  currently  assigned 
used 

number  of  temperature  sensors  multiplexed 
used  as  counter 

number  of  heat  flux  sensors  multiplexed 
printer  select  code  plus  format  number 
printer  select  code 
used 

number  of  current  original  data  record 


A[*] : 

A[ I, 1] 
A[I,2] 

B[*] : 

B[I] 

C[*] : 

C[I] 

D[*l: 

D[1,I] 

D[2,I] 

E[*]: 

E[1,I] 

E[2,I] 


auxiliary  sensors 
serial  number  of  sensor  #1 

heat  flux  calibration  constant  for  sensor  9  I 
data  voltage  signal  for  auxiliary  temperatures 
value  for  sensor  91 

data  voltage  signal  for  auxiliary  heat  flux  sensors 
value  for  sensor  91 

offset  voltages  of  multiplexed  sensors 

heat  flux  circuit  91 

temperature  sensor  91 

auxiliary  sensor  amplifier  gains 

heat  flux  circuit  9  I 

temperature  circuit  91 


Ft*]: 

F[I] 

F[I] 

H[*J : 

Htl] 

It*]: 

ItJ] 

I[J] 

K[*]: 

K[1,I] 

Kt2,I] 

M(*|: 

Ktl] 

Mtll] 

M[12] 

Nt*]: 

Ntl] 

Nt2] 

Nt3] 


scaled  heat  flux  (W/M2) 

I  S  I  S  10,  multiplexed  sensors  9  I 

II  £  I  £  15,  auxiliary  sensor  9  (1-10) 

data  voltage  signal  for  multiplexed  heat  flux  sensors 

sensor  9  I 

scaled  heat  loss  (W) 

I  £  J  <  10,  multiplexed  sensor  9  J 

II  i  J  <  15,  auxiliary  sensor  9  (J  -  10) 
offset  voltages  for  auxiliary  sensors 
heat  flux  circuit  9  I 

temperature  sensor  9  I 

scaled  multiplexed  temperatures  (°C) 

1  <  I  <  10,  sensor  9 1 
rectal  temperature 
ambient  temperature 

number  of  multiplexed  heat  flux  sensors 
number  of  multiplexed  temperature  sensors 
number  of  auxiliary  sensors 
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PI* 

]: 

P[I] 

Q[*] : 

Q[I] 

S[* 

]: 

S[1,I] 

S[2,I] 

T[* 

]: 

T[I] 

T[ll] 

T[12] 

v[* 

]: 

V[1,I] 

V[2,I] 

W[* 

]: 

W[I] 

X[* 

]: 

X[1,I] 

X[2,I] 

X[3, I] 

X[4,I] 

Y[* 

]: 

Y[1,I] 

Y[2,I] 

Z[* 

]: 

Z[1,I] 

Z[2,I] 

scaled  auxiliary  temperatures  (°C) 
sensor  #  I  value 

surface  area  weighting  factors  for  auxiliary  sensors 

value  for  sensor  #  I 

gains  of  multiplexed  circuits 

heat  flux  circuit  #  I 

temperature  circuit  #  I 

data  voltage  signal  for  multiplexed  temperatures 
1  £  I  £  10,  sensor  #  I 
rectal  probe 
ambient  probe 

auxiliary  temperature  sensor  calibration  signals 
low  temperature  for  sensor  it  I 
high  temperature  for  sensor  it  I 

surface  area  weighting  factors  for  multiplexed  sensors 
value  for  sensor  S  I 

calibration  output  signals  for  multiplexed  sensors 
low  calibration  for  heat  flux  it  I 
high  calibration  for  heat  flux  #  I 
low  calibration  for  temperature  #  I 
high  calibration  for  temperature  #  I 

calibration  output  signals  for  auxiliary  heat  flux  sensors 
low  calibration  for  heat  flux  it  I 
high  calibration  for  heat  flux  it  I 

serial  numbers  and  calibration  constants  for  multiplexed  sensors 

serial  number  of  sensor  it. I 

calibration  constant  (W/Wr-mV)  for  sensor  it  I 


A$ 

B$ 

C$ 

D$ 

E$ 

F$ 


name  of  new  file  for  scaled  data 
header  from  original  data  file 
name  of  calibration  file 
header  of  calibration  file 
name  of  original  data  file 
header  of  new  file  for  scaled  data 


rl 

r2 

r3 

r4 

r5 

r6 

r7 

r20 


yes/no  flag 

HFS  low  calibration  input  (mV) 

HFS  high  calibration  input  (mV) 
currently  not  assigned 
currently  not  assigned 
temperature  low  calibration  input  (°C) 
temperature  high  calibration  input  (°C) 
number  of  records  in  original  data  file 
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EQUIPMENT  REQUIRED 

1.  Hewlett-Packard  (HP)  9825B  desktop  computer 

2.  HP  9895/9885  flexible  disk  drive  ROM 

3.  HP  9895  flexible  disk  drive 

4.  HP  9872A  X-Y  plotter 
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Appendix  4c 


SENSOR  IDENTIFICATION  FOR  PLOTS  OF 
HEAT  FLUX  AND  TEMPERATURE  DATA 


HFS# 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


AUX1 

AUX2 

AUX3 

AUX4 

AUX5 


PLOTTER 


TMP#  PEN# 

1  1 

2  1 

3  1 

4  1 

5  2 

6  2 

7  2 

8  2 

9  3 

10  3 

11  (RECTAL)  4 

12  (AMBIENT)  4 


PLOTTER 
LINE  PATTERN 


AUX1  3 

AUX2  3 

AUX3  4 

AUX4  4 

AUX5  4 
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"AVG15" 


EQUIPMENT  REQUIRED 


Appendix  5a 


Hewlett-Packard  9825B  desktop  computer 
or 

Hewlett-Packard  9825A  with  the  followings  ROM's: 

a.  general  I/O 

b .  extended  I/O 

c .  advanced  programming 

d.  string  variable 

2.  HP  98034A  (HP-IB)  interface  bus 

3.  HP  9895/9885  flexible  disk  ROM 

4.  HP  9895  flexible  disk  drive 

5.  Printer  for  computer  such  as  HP  9866,  HP  9876,  HP  7245 


This  program  is  called  AVG15;  it  takes  data  created  by  HEAT15  and 
its  various  modified  versions  and  produces  averaged  values  over  a 
period  chosen  by  the  user": 

Version:  16  February  1982  **  RPL  ": 
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Analyze  another  data  file? 


34:  "AVG": 

35:  ent  “I  of  first  record  wanted®?" ,M 1 1 
36:  ent  “I  of  last  record  wanted®?" , A[2] 
37:  dsp  "Averaging  data" 
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67:  ant  "Create  new  SITE  file? 
68:  if  rlfljgto  +3 
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"AVG15" 


Appendix  5c 


VARIABLE  LISTING 


A 

B 

E 

I 

J 

N 

U 


Number  of  records  averaged 

temporary  storage  for  convective  heat  transfer  coefficient 

time  of  data  In  minutes 

counter 

counter 

printer  select  code 
record  number  of  data 


A[*]:  period  to  be  averaged 

A[l]  first  period  to  be  Included  in  average 

A[2]  last  period  to  be  included  in  average 


D[*] 

F[*] 

HE*] 

M[*] 

N[*] 

P[*l 

T  [  *] 

U[*]: 

U[l] 

U[2] 


D [ I]  is  average  value  of  [(temperature  if  I)  -  (ambient 
temperature) ] 

F[I]  is  scaled  heat  flux  for  sensor  If  I  for  current  record 
H[I]  is  average  heat  flux  for  sensor  if  I 

M[I]  is  scaled  temperature  for  multiplexed  sensor  for  current 
record 

number  of  sensors  as  recorded  on  data  file 

P[I]  is  scaled  temperature  for  auxiliary  sensor  for  current 

record 

T[ I]  is  average  temperature  for  sensor  if  I 
max  and  min  times 
time  corresponding  to  period  A[l] 
time,  corresponding  to  period  A[2] 


A$ 

B$ 

C$ 

D$ 

E$ 

F$ 

N$ 


name  of  analyzed  data  file 
header  of  original  data  file 
name  of  original  calibration  file 
used 

name  of  original  data  file 
header  of  analyzed  data  file 
"SITE"  file  names 

N$[I],  1  .<  I  <  10,  multiplexed  sensor  if  I 
N$[I] ,  11  <  I  <  15,  auxiliary  sensor  if  (1-10) 
N$ [ 16 ] ,  "RECTAL,"  rectal  temperature 
N$ [ 17 ] ,  "ENVIRON,"  environmental  temperature 
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31:  on  end  1, "ONE" 

32:  dsp  "Combining  Data  Piles  Now 
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